home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / ft.flower power (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  66 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 6 poke53272,31:poke53269,0
  3. 10 poke53280,0:poke53281,14:print"[147]        [198] [204] [207] [215] [197] [210]   [208] [207] [215] [197] [210]"
  4. 15 fori=1544to2023:pokei,160:poke54272+i,13:next
  5. 20 dima(64):v=53248:s=54296
  6. 30 forl=12288to12799:pokel,0:next
  7. 40 fort=0to29:readp,b:pokev+p,b:next
  8. 50 fort=1to7:poke2040+t,192+t:next
  9. 60 forq=0to63:readn:a(q)=n:next
  10. 70 fort=0to7:forq=63to0step-1:l=l-1:pokel,a(q):ford=0to40:next:next:next
  11. 75 goto100
  12. 79 rem....flower x,y data....
  13. 80 data0,220,1,140,2,95,3,155
  14. 81 data4,170,5,145,6,120,7,140
  15. 82 data8,195,9,150,10,245,11,155
  16. 83 data12,70,13,145,14,145,15,150
  17. 84 rem....other flower data....
  18. 85 data21,254,28,255,32,0,33,14
  19. 86 data37,5,38,0,39,7,40,6
  20. 87 data41,2,42,7,43,4,44,1
  21. 88 data45,2,46,1
  22. 89 rem....flower shape data....
  23. 90 data2,128,160,2,162,160,2,162
  24. 91 data160,0,162,128,10,46,40,42
  25. 92 data191,170,42,191,170,10,46,40
  26. 93 data0,166,128,2,166,160,18,166
  27. 94 data160,18,132,161,20,4,1,21
  28. 95 data4,5,5,68,21,5,68,84
  29. 96 data1,68,84,0,84,80,0,5
  30. 97 data64,0,4,0,0,4,0,0
  31. 100 forj=832to959:readk:pokej,k:next
  32. 110 forj=0to7:readk,l:pokev+k,l:next
  33. 120 forj=0to250:pokev,j
  34. 130 pokes,5:poke2040,b:pokes,0
  35. 140 ifb=14thenb=13:goto130
  36. 145 b=14:next
  37. 150 i=peek(v+1):form=0to25:pokev+1,i:i=i+1:next
  38. 201 data0,240,0,3,252,0,3,255
  39. 202 data0,3,255,1,0,255,4,0
  40. 203 data255,16,0,63,16,0,63,4
  41. 204 data1,143,28,73,153,93,25,153
  42. 205 data85,9,153,85,1,153,20,0
  43. 206 data145,0,0,4,64,0,1,16
  44. 207 data0,4,64,0,17,0,0,0
  45. 208 data0,0,0,0,0,0,0,0
  46. 209 data0,0,0,0,0,0,0,0
  47. 210 data0,0,0,1,0,0,4,0
  48. 211 data0,16,0,0,16,0,0,4
  49. 212 data3,255,28,75,252,93,25,249
  50. 213 data85,9,153,85,1,153,20,0
  51. 214 data145,0,0,4,64,0,1,16
  52. 215 data0,4,64,0,17,0,0,0
  53. 216 data0,0,0,0,0,0,0,0
  54. 217 rem....other bee sprite data....
  55. 218 data32,0,33,14,37,0,38,15
  56. 219 data39,7,21,255,28,255,1,113
  57. 220 print"     [208]ress [211][208][193][195][197]/[198][201][210][197] to go to menu
  58. 230 j[178][194](56320):[161]a$:[139]a$[179][177]" "[175]j[177]111[167]230
  59. 235 [151]53269,0
  60. 240 [153]"loadcont"
  61. 245 [153]"new"
  62. 250 [153]"load"[199](34)"ft.menu"[199](34)","dv
  63. 255 [153]"run"
  64. 260 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  65. 10000 d[178][194](186):n$[178]"ft.flower power":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  66.